FOR EACH sct_det WHERE sct_sim = "Current" AND sct_part BEGINS "291-" NO-LOCK,
    EACH ptp_det WHERE ptp_part = sct_part AND ptp_site = sct_site AND CAN-DO("P,M",ptp_pm_code) EXCLUSIVE:
/*     IF ptp__dec02 <> 0  THEN DO: */
/*        ASSIGN ptp__dec01 = ptp__dec02.  */
/*        ASSIGN ptp__dec02 = 0.           */
       DISP sct_part sct_site ptp_pm_code sct_cst_tot ptp__dec01 ptp__dec02.
/*    END.*/
END.
